﻿Set myInDesign = CreateObject("InDesign.Application")
Set myDocument = myInDesign.activedocument
set myObjectStyle = myDocument.objectstyles.item("TuKuang")
for i = 1 to 69
	Set myPage = myDocument.Pages.Item(i)
	set my1textframe = myPage.textframes.add

	my1textframe.GeometricBounds = Array(15,15,130,90)
	'my1textframe.GeometricBounds = Array(13,13,90,58)
	'my1textframe.GeometricBounds = Array(13,13,57,57)
	WenJianMingZiShu = i +12
	if WenJianMingZiShu<10 then
		my1textframe.place "Z:\Downloads\Deda-0313-lingtu\扫描_页面_0"& WenJianMingZiShu &".png"
	else
		my1textframe.place "Z:\Downloads\Deda-0313-lingtu\扫描_页面_"& WenJianMingZiShu &".png"
	end if
	my1textframe.fit(idFILLPROPORTIONALLY)
	my1textframe.applyobjectstyle myObjectStyle, true
	myDocument.pages.add
next
msgbox ("Finished!")